(FILECREATED "22-AUG-74 19:25:29" EVEN.;2 8403   

     changes to:  ODD:ALT EVENFNS GLOBALVARS

     previous date: "21-AUG-74 02:50:49" EVEN.;1)


  (LISPXPRINT (QUOTE EVENCOMS)
	      T)
  (RPAQQ EVENCOMS ((FNS * EVENFNS)
	  PUP6VARS GLOBALVARS))
  (RPAQQ EVENFNS (EVEN:ALT ODD:ALT))
(DEFINEQ

(EVEN:ALT
  (LAMBDA (L)
    (COND
      (L (COND
	   ((EQUAL (CAAR L)
		   (QUOTE NOBIND))
	     (SET (CAR L)
		  (CAR L))))
	 (CONS (CAR L)
	       (ODD:ALT (CDR L)))))))

(ODD:ALT
  (LAMBDA (L)
    (COND
      (L (COND
	   ((EQUAL (CAAR L)
		   (QUOTE NOBIND))
	     (SET (CAR L)
		  (CAR L))))
	 (EVEN:ALT (CDR L))))))
)
  (RPAQQ PUP6VARS
	 ($ ADAPTATION:DEFER:DECISION:KNOWLEDGE ADAPTATION:RESOLVE:DECISION:KNOWLEDGE ADJECTIVES AFFECTS:ALL 
	    AFFECTS:ALL:DEFER:DECISION:KNOWLEDGE ALPHORDER ALTERNATIVES:DEFER:DECISION:KNOWLEDGE 
	    ALTERNATIVES:RESOLVE:DECISION:KNOWLEDGE AND:LOOP:TERMINATION:KNOWLEDGE APPLIED:SO:AS:TO:KEEP ASSERT:LISTS 
	    BEING BOOLEAN:DEFER:DECISION:KNOWLEDGE BOOLEAN:RESOLVE:DECISION:KNOWLEDGE BOTH:RESULTS BREAKUP:LIST CALL 
	    CF:DIALOG HOLDX COMEVAL ARG1 ARG2 ARG3 COMMENT COMPILABLE:BEING:PARTS DEFINITION:DEFER:DECISION:KNOWLEDGE 
	    DEFINITION:RESOLVE:DECISION:KNOWLEDGE DICHOTOMY:DEFER:DECISION:KNOWLEDGE 
	    DICHOTOMY:RESOLVE:DECISION:KNOWLEDGE DOES DOESNT DUMMY:ARGUMENT EQUAL EQUALS EVAL EVAL:BEING:PARTS EXPERTAG 
	    EXPERTISE FALSE FINAL:PREADLIST FLOW:ASSIGNMENT FOREVER FUNDAMENTAL:IDEN:TABLE GI:DIALOG GLOBAL:CONTEXT:0 
	    GO HOLD:GLOBALVARS INFERIOR ING IS IS:BEING:LIST ISNT KNOWLEDGE LABEL:COUNTER LEFT:SIDE LIST:VALUE:SETUP 
	    LONG:TAG MINOR:WORDS NAME NEW:P:NUMBER NO:RESULTS NON:EVAL:BEING:PARTS NON:EXECUTABLE NOT:TIME:YET ONETYPE 
	    ONETYPE:DEFER:DECISION:KNOWLEDGE ONETYPE:RESOLVE:DECISION:KNOWLEDGE PARTS PERMANENT:KNOWN:NAMES POSSIBLE 
	    PREADLIST PREDICATE:DEFER:DECISION:KNOWLEDGE PREDICATE:RESOLVE:DECISION:KNOWLEDGE PRIMITIVE:PROGRAMS:LIST 
	    PRIMITIVE:VARS:LIST PROGRAM:WRITING:PHASES PROPERTY:LIST:SETUP RESULT:COUNTER RESULTS RIGHT:SIDE SET:OF 
	    SET:OF:BEING:PARTS SET:OF:BEINGS SINCE SNAP SNAPFNS SNAPVARS SOMEOF:DEFER:DECISION:KNOWLEDGE 
	    SOMEOF:RESOLVE:DECISION:KNOWLEDGE STICKY:BNAME STICKY:BPART SUBSETOF:DEFER:DECISION:KNOWLEDGE 
	    SUBSETOF:RESOLVE:DECISION:KNOWLEDGE SUPERIOR TRIVIAL:BEING:LIST UNKNOWN UNTIL WHEN:ALL 
	    WHEN:ALL:DEFER:DECISION:KNOWLEDGE YES YES:RESULTS YESNO YESNO:TAG (COMS *
										    (LIST (APPEND (QUOTE (PROP ALL))
												  SET:OF:BEINGS)))
	    (P (MAPC (APPEND PUP6FNS SET:OF:BEINGS SET:OF:BEING:PARTS ADJECTIVES)
		     (FUNCTION (LAMBDA (V)
				       (SET V V))))
	       (SETQ #RPARS NIL)
	       (DWIM)
	       (CHANGESLICE 6)
	       (SETQ GLOBALVARS HOLD:GLOBALVARS)
	       (SET:UP:IDEN:TABLE)
	       (SET:UP:EFFECTS:TABLE)
	       (WIDEPAPER T))
	    (P (MAPC SET:OF:BEINGS SEMI:COMPILE)
	       (PRIN1 "  MINI PUP FILE:  USE FAD OR AD OR MAKEFILE FOR NEW VERSION  "))))
  (RPAQQ GLOBALVARS
	 (BEING:STACK CURRENT:DEMONS USER:INTERRUPT:DEMONS BECAUSE UNKNOWN:TASK BREAKUP:LIST ARG1 ARG2 ARG3 
		      MATCH:RESULT ANY1 ANY2 ANY3 FRAG1 FRAG2 CHOICE TYPE:OF:LIST SATISFY DEMON:STACK @ A:BEING:ORDER 
		      A:BEING:WHEN AD ADD:BEING ADD:EFFECTS ADD:IDEN ALLSUBSTS ANTI:RULE ANTIRULE ASSERTIONS ATOMP 
		      ATTENTION:DEMONS BREAK:PREADLIST CAAR:ORDER CAR:ORDER CHANGEB CHANGEP CHECK:COMMENTS CLASS 
		      COLON:BACK COLON:BREAK COMMENT COMPATIBLE CSORT DEFERRAL:DEMON DETERMINE:ALL:ARG2:VALUES 
		      DETERMINE:ALL:ARG3:VALUES DETERMINE:ALL:ARG:VALUES DETERMINE:ARG2:VALUE DETERMINE:ARG3:VALUE 
		      DETERMINE:ARG:VALUE DIMENSION1 DIMENSION2 DIMENSION3 DISK:DUMP DOT:PROD DUMMIES DUMP:BEING 
		      ECONOMY:DEMON ELIM:COMMON:HEAD ELIM:COMMON:TAIL ENTER EVALUATE:AFFECT EVEN:ALT FAD 
		      FAST:BEING:COMPLEX FIND:AND:TAG FIRST:FEW FIRSTN FLATTEN FLOW:PRECEDED FOREVER 
		      FORGETFUL:USER:DEMON FORGOT:ANY FORSOME FRINGE:OF:CONCIOUSNESS:DEMON GET:USAGE GETCODE HEAD 
		      HIGHLY:STRUCTURED IDIOM:DEMON IMPROBABILITY:COMPLEX INCOMMENT INFER:INSIDE INFERENCE:DEMONS 
		      INITIALS INSERT:PRINT:STATEMENTS INSIDE INSTANTIATE INTUPLE INVECTOR IRRELEVANT JPL 
		      LEARN:BY:EXAMPLE LIST:JOIN LIST:TRANSLATE LOCATE:AFFECTED:AREA LOCATION:TRANSLATE LONG:NAME:DEMON 
		      LUMP:ASSERTIONS MAD MAIN:WORDS MAKE:SPECIFIC MATCH MERGE:IN MERGE:IN2 MINIMUM MINTERSECTION 
		      MOST:GENERAL MOVE:BEING MULT:INTERSECTION NEW:IDEN NEW:LEVEL NOT:YET:INITIALIZED NULLIFY 
		      NUMBER:SUBST ODD:ALT OPPOSITE OUTFORM OUTNIL OUTQUOTE OUTTUPLE OUTVECTOR PBT PBTV 
		      PERMIT:DETAILED:DECISION PERMIT:USER:INTERRUPT PLISTMATCH PLURAL POP:DEMONS PREAD PREDICT:AFFECT 
		      PREPL PRET PROCEDURE:INTERSECTION PROCEDURE:PULLOUT PROCEDURE:SUBSET PROCESS:USER:INTERRUPT 
		      PROGRAM:WRITING:DEMONS PSYCHOLOGY:DEMON PULLOUT PULLOUT1 PUPP PUPRETTYPRINT PUPRIN1 PUPRINT 
		      PUSH:DEMONS RANDOMSELECT REINVESTIGATION:DEMON RELEVANT REMOVE:EFFECTS REMOVE:IDEN 
		      SELECT:STRUCTURE:TYPE SEMI:COMPILE SET:UP:EFFECTS:TABLE SET:UP:IDEN:TABLE SETDIFFERENCE 
		      SETINTERSECTION SETUNION SINGLETON SINGULAR SIZE SNAPSHOT SPECIFICITY:CHECK:DEMON START STRUCTURE 
		      STRUCTURE:COMPATIBLE STRUCTURE:INDUCING:DEMON SUBALLEVELS SUBSTITUTE TEMPORARILY TRACE:COMPILE 
		      TRUE:MINIMUM TRY:TO:SATISFY TUPLE UNGERUNDIFY USER:INTERRUPT:AT:ADAPTING USER:INTERRUPT:AT:CODING 
		      USER:INTERRUPT:AT:DEBUG USER:INTERRUPT:AT:END USER:INTERRUPT:AT:PHASES VECTOR VECTOR:AVERAGE 
		      VECTOR:SUM WHEN:VALUE Z@ IDEN IMPLICIT:ARGS EXPLICIT:ARGS EXPLICIT:ARGS:CHECK NLAMBDA 
		      NON:EVAL:ARGS WHAT HOW WHY SPEC:WHY MAIN:EFFECTS MINOR:EFFECTS WHEN META:CODE COMMENTS 
		      PRE:REQUISITES CO:REQUISITES POST:REQUISITES DEMONS AFFECTS COMPLEXITY:VECTOR GENERALIZATIONS 
		      SPECIALIZATIONS ALTERNATIVES PREDICATE DATA:STRUCTURE ENCODABLE INHIBIT:CURRENT:DEMONS 
		      FORM:CHANGING ADAPT:PRECONCEIVED:FUNCTION ADD:DEFINITION ADJECTIVE:HANDLER ANALYZE:IMPLICATIONS 
		      APPLYRULE ASK:USER:ABOUT BETTER CHOOSE:FROM CLARIFY:IMPROBABLE:SITUATION 
		      CLASSIFICATORY:CONCEPT:FORMATION COMPARE COMPARITIVE:CONCEPT:FORMATION COMPLEX:ALTERATION 
		      COMPLEX:COMPARE:FN COMPLEX:MODIFY:STRUCTURE CONCEPT:FORMATION CONDITIONAL:DELETION 
		      CONDITIONAL:INSERTION CONSTRAIN DATA:STRUCTURE:DELETIONS DATA:STRUCTURE:INSERTIONS DEFER:DECISION 
		      ELEMENT ENCODE EXAMINE:STRUCTURE EXTRACT:RELEVANT:SUBSET FILL:IN:UNDEFINED:SECTION 
		      FIX:INCORRECT:PIECE FOREACH GET:DATA:STRUCTURE GET:HOLD:OF GET:NAME GET:NEW:INFORMATION 
		      GRAMMATICAL:INFERENCE INFER:CONTEXTFREE:GRAMMARS INFER:CONTEXTSENSITIVE:GRAMMARS 
		      INFER:FIXEDCLASS:GRAMMARS INFER:MULTICLASS:GRAMMARS INFER:PHRASESTRUCTURE:GRAMMARS 
		      INFER:REGULAR:GRAMMARS IS:OF:TYPE JOINING:FUNCTION LIST:STRUCTURE MAJOR:MODIFY:STRUCTURE 
		      MAKE:A:GUESS MAKE:ENCODABLE MAKE:NEW:BEING MESSAGE METRICAL:CONCEPT:FORMATION MODIFY:SOME 
		      MODIFY:STRUCTURE MODIFY:UNTIL OBTAIN:USABLE:INFORMATION OPTIMIZE PARSE PARSE:BACKWARD 
		      PARSE:FORWARD PARTITION:A:DOMAIN PARTITION:BY:TAKE:CLASS:GET:ELE PARTITION:BY:TAKE:ELE:AND:CLASS 
		      PARTITION:BY:TAKE:ELE:GET:CLASS PATTERN:MATCH PROBABILITY=0:# PROBABILITY=1:# PROBABILITY>0&<1:# 
		      PROPOSE:PLAUSIBLE:NAMES RECOGNIZE:# RECOGNIZE:ARGS RECOGNIZE:CAR RECOGNIZE:CONDITIONAL 
		      RECOGNIZE:CONJUNCTION RECOGNIZE:EQUALITY RECOGNIZE:FUNCTION:RETURNS RECOGNIZE:INCLUSION 
		      RECOGNIZE:LITERALS RECOGNIZE:NUMBER RECOGNIZE:SET:RELATIONS RECOGNIZE:SOME:MEMBER RECOGNIZE:TAIL 
		      REINVESTIGATE:DECISION REPEATEDLY RESOLVE:DECISION SCENE SEARCH SERVE SIMPLE:COMPARE:FN 
		      SOME:PART:OF STRING STUDY:TYPE SUPPORT&DUMP TAKE:HOLD:OF TEST TRANSLATE USE:INFORMATION UTILIZE 
		      WHEN:NEXT WRITE:PROGRAM $ AFFECTS:ALL ALPHORDER APPLIED:SO:AS:TO:KEEP BEING BOTH:RESULTS CALL 
		      HOLDX COMEVAL DOES DOESNT DUMMY:ARGUMENT EQUAL EQUALS EVAL EXPERTAG FALSE GLOBAL:CONTEXT:0 GO 
		      INFERIOR ING IS ISNT KNOWLEDGE LABEL:COUNTER LEFT:SIDE LONG:TAG NAME NEW:P:NUMBER NO:RESULTS 
		      NON:EXECUTABLE NOT:TIME:YET ONETYPE PARTS PERMANENT:KNOWN:NAMES POSSIBLE PREADLIST RESULT:COUNTER 
		      RESULTS RIGHT:SIDE SET:OF SINCE SNAP SNAPFNS STICKY:BNAME STICKY:BPART SUPERIOR UNKNOWN UNTIL 
		      WHEN:ALL YES YES:RESULTS YESNO YESNO:TAG))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (299 654 (EVEN:ALT 311 . 491) (ODD:ALT 495 . 651)))))
STOP